home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #2 / Amiga Plus CD - 2004 - No. 02.iso / AmiSoft / Dev / basic / amiblitz_ful.lha / AmiBlitz2 / Examples / dimkeep.ab2 < prev    next >
Encoding:
Text File  |  1980-03-23  |  401 b   |  20 lines
  1. optimize 4
  2.  NEWTYPE .test
  3.  c.l
  4.  a.l
  5.  End NEWTYPE
  6.  WBStartup
  7.  dimsize.l=30
  8.  Dim KEEP a.test(3,5,dimsize)
  9.  If PutD0=0 Then Print dimsize,"Elements fail"
  10.  a(1,3,30)\a=12345678
  11.  dimsize=400000
  12.  Dim KEEP a(3,5,dimsize)
  13.  If PutD0=0 Then NPrint dimsize," Elements fail"
  14.  NPrint a(1,3,30)\a
  15.  Dim KEEP a(3,5,400)
  16.   If PutD0=0 Then NPrint "400  Elements fail"
  17.  NPrint a(1,3,30)\a
  18.  MouseWait
  19.  
  20.